setwd("C:/Users/Camila Hohlenwerger/Desktop/aula4.exercicio_aula5")
esaligna<- read.table(file="esaligna.csv", header=TRUE, sep=",", dec=".", as.is=TRUE)
esaligna
plot(esaligna$ht~esaligna$dap, xlab="Dap (cm)", ylab="Altura (m)")
dev.off()
dev.off()
?mtext
plot(esaligna$ht~esaligna$dap, xlab="Dap (cm)", ylab="Altura (m)", , bty="l", tcl=0.3, main="Relao entre Dap e Altura", cex.lab=1.5, cex.axis=1.5)
savePlot